home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / exindex.dir / 00100_Index Movie Script.ls < prev    next >
Encoding:
Text File  |  1995-09-06  |  2.7 KB  |  119 lines
  1. on indexClick which
  2.   go(which)
  3. end
  4.  
  5. on goIntro
  6.   go(1, "ExMain")
  7. end
  8.  
  9. on goOther
  10.   go(1, "OtherEx")
  11. end
  12.  
  13. on goMain
  14.   go("mainMapEnd", "ExMain")
  15. end
  16.  
  17. on goDatabase
  18.   go(1, "ExData")
  19. end
  20.  
  21. on goImpact
  22.   go(1, "Impact")
  23. end
  24.  
  25. on goTimeline
  26.   go(1, "ExTimeL")
  27. end
  28.  
  29. on goTour
  30.   go("Main interface", "ExMain")
  31. end
  32.  
  33. on goColumbusMap
  34.   go("ColumbusMapEnd", "ExMColu")
  35. end
  36.  
  37. on goCortesMap
  38.   go("CortesMap2End", "ExMCort")
  39. end
  40.  
  41. on goMagellanMap
  42.   goScene("MapA", "ExMMage.dir")
  43. end
  44.  
  45. on goColonialism
  46.   goScene("mechanics", "ZMEChan.dir")
  47. end
  48.  
  49. on startMovie
  50.   goToStoredIndexPage()
  51. end
  52.  
  53. on storeIndexPage
  54.   global gIndexPage
  55.   set gIndexPage to the frame
  56. end
  57.  
  58. on goToStoredIndexPage
  59.   global gIndexPage
  60.   if not voidp(gIndexPage) and not (gIndexPage = EMPTY) then
  61.     go(gIndexPage)
  62.   end if
  63. end
  64.  
  65. on clickIndexScene
  66.   global cameFromIndex
  67.   set maxSegs to 8
  68.   set OffsetFromTop to 0
  69.   set whichSprite to the clickOn
  70.   set loc to the clickLoc
  71.   set vSeg to getVSeg(loc, whichSprite, maxSegs, OffsetFromTop)
  72.   set indexLookupLine to getIndexLookupline(whichSprite, vSeg)
  73.   set indexLookupData to line indexLookupLine of field (the frameLabel && "INDEX")
  74.   put indexLookupData
  75.   if the number of items in indexLookupData > 2 then
  76.     if didClick2ndlevel(loc, whichSprite) then
  77.       hiliteSceneButton(whichSprite, vSeg, maxSegs, OffsetFromTop, 2)
  78.       set cameFromIndex to 1
  79.       goScene(word 1 of item 4 of indexLookupData, word 2 of item 4 of indexLookupData)
  80.       exit
  81.     end if
  82.   end if
  83.   if the number of items in indexLookupData > 1 then
  84.     hiliteSceneButton(whichSprite, vSeg, maxSegs, OffsetFromTop, 1)
  85.     set cameFromIndex to 1
  86.     goScene(word 1 of item 2 of indexLookupData, word 2 of item 2 of indexLookupData)
  87.   end if
  88. end
  89.  
  90. on getIndexLookupline whichSprite, vSeg
  91.   set firstColumnSprite to 21
  92.   set spriteIndex to whichSprite - firstColumnSprite
  93.   return (spriteIndex * 8) + vSeg
  94. end
  95.  
  96. on didClick2ndlevel loc, whichSprite
  97.   set clickOffset to H(loc) - the left of sprite whichSprite
  98.   set did to (clickOffset > 20) and (clickOffset < 37)
  99.   return did
  100. end
  101.  
  102. on hiliteSceneButton whichSprite, vSeg, NumSegs, OffsetFromTop, level
  103.   set HiliteSceneSprite to 24
  104.   if voidp(level) then
  105.     set level to 1
  106.   end if
  107.   puppetSprite(HiliteSceneSprite, 1)
  108.   set buttonH to the left of sprite whichSprite + 9
  109.   if level = 2 then
  110.     set buttonH to buttonH + 20
  111.   end if
  112.   set the locH of sprite HiliteSceneSprite to buttonH
  113.   set spriteHeight to the height of sprite whichSprite - OffsetFromTop
  114.   set segHeight to spriteHeight / NumSegs
  115.   set buttonV to the top of sprite whichSprite + OffsetFromTop + ((vSeg - 1) * segHeight) + (segHeight / 2)
  116.   set the locV of sprite HiliteSceneSprite to buttonV - 1
  117.   updateStage()
  118. end
  119.